let raw_object = object  
    val field0 = 0
val field1 = 1
val field2 = 2
val field3 = 3
val field4 = 4
val field5 = 5
val field6 = 6
val field7 = 7
val field8 = 8
val field9 = 9
val field10 = 10
val field11 = 11
val field12 = 12
val field13 = 13
val field14 = 14
val field15 = 15
val field16 = 16
val field17 = 17
val field18 = 18
val field19 = 19
val field20 = 20
val field21 = 21
val field22 = 22
val field23 = 23
val field24 = 24
val field25 = 25
val field26 = 26
val field27 = 27
val field28 = 28
val field29 = 29
val field30 = 30
val field31 = 31
val field32 = 32
val field33 = 33
val field34 = 34
val field35 = 35
val field36 = 36
val field37 = 37
val field38 = 38
val field39 = 39
val field40 = 40
val field41 = 41
val field42 = 42
val field43 = 43
val field44 = 44
val field45 = 45
val field46 = 46
val field47 = 47
val field48 = 48
val field49 = 49
val field50 = 50
val field51 = 51
val field52 = 52
val field53 = 53
val field54 = 54
val field55 = 55
val field56 = 56
val field57 = 57
val field58 = 58
val field59 = 59
val field60 = 60
val field61 = 61
val field62 = 62
val field63 = 63
val field64 = 64
val field65 = 65
val field66 = 66
val field67 = 67
val field68 = 68
val field69 = 69
val field70 = 70
val field71 = 71
val field72 = 72
val field73 = 73
val field74 = 74
val field75 = 75
val field76 = 76
val field77 = 77
val field78 = 78
val field79 = 79
val field80 = 80
val field81 = 81
val field82 = 82
val field83 = 83
val field84 = 84
val field85 = 85
val field86 = 86
val field87 = 87
val field88 = 88
val field89 = 89
val field90 = 90
val field91 = 91
val field92 = 92
val field93 = 93
val field94 = 94
val field95 = 95
val field96 = 96
val field97 = 97
val field98 = 98
val field99 = 99
    method get0 = field0 + 0
method get1 = field1 + 1
method get2 = field2 + 2
method get3 = field3 + 3
method get4 = field4 + 4
method get5 = field5 + 5
method get6 = field6 + 6
method get7 = field7 + 7
method get8 = field8 + 8
method get9 = field9 + 9
method get10 = field10 + 10
method get11 = field11 + 11
method get12 = field12 + 12
method get13 = field13 + 13
method get14 = field14 + 14
method get15 = field15 + 15
method get16 = field16 + 16
method get17 = field17 + 17
method get18 = field18 + 18
method get19 = field19 + 19 
   end

let () =  assert (raw_object#get17 = 17 + 17);

  class raw_class  value = object  
    val field0 = 0 * value
val field1 = 1 * value
val field2 = 2 * value
val field3 = 3 * value
val field4 = 4 * value
val field5 = 5 * value
val field6 = 6 * value
val field7 = 7 * value
val field8 = 8 * value
val field9 = 9 * value
val field10 = 10 * value
val field11 = 11 * value
val field12 = 12 * value
val field13 = 13 * value
val field14 = 14 * value
val field15 = 15 * value
val field16 = 16 * value
val field17 = 17 * value
val field18 = 18 * value
val field19 = 19 * value
val field20 = 20 * value
val field21 = 21 * value
val field22 = 22 * value
val field23 = 23 * value
val field24 = 24 * value
val field25 = 25 * value
val field26 = 26 * value
val field27 = 27 * value
val field28 = 28 * value
val field29 = 29 * value
val field30 = 30 * value
val field31 = 31 * value
val field32 = 32 * value
val field33 = 33 * value
val field34 = 34 * value
val field35 = 35 * value
val field36 = 36 * value
val field37 = 37 * value
val field38 = 38 * value
val field39 = 39 * value
val field40 = 40 * value
val field41 = 41 * value
val field42 = 42 * value
val field43 = 43 * value
val field44 = 44 * value
val field45 = 45 * value
val field46 = 46 * value
val field47 = 47 * value
val field48 = 48 * value
val field49 = 49 * value
val field50 = 50 * value
val field51 = 51 * value
val field52 = 52 * value
val field53 = 53 * value
val field54 = 54 * value
val field55 = 55 * value
val field56 = 56 * value
val field57 = 57 * value
val field58 = 58 * value
val field59 = 59 * value
val field60 = 60 * value
val field61 = 61 * value
val field62 = 62 * value
val field63 = 63 * value
val field64 = 64 * value
val field65 = 65 * value
val field66 = 66 * value
val field67 = 67 * value
val field68 = 68 * value
val field69 = 69 * value
val field70 = 70 * value
val field71 = 71 * value
val field72 = 72 * value
val field73 = 73 * value
val field74 = 74 * value
val field75 = 75 * value
val field76 = 76 * value
val field77 = 77 * value
val field78 = 78 * value
val field79 = 79 * value
val field80 = 80 * value
val field81 = 81 * value
val field82 = 82 * value
val field83 = 83 * value
val field84 = 84 * value
val field85 = 85 * value
val field86 = 86 * value
val field87 = 87 * value
val field88 = 88 * value
val field89 = 89 * value
val field90 = 90 * value
val field91 = 91 * value
val field92 = 92 * value
val field93 = 93 * value
val field94 = 94 * value
val field95 = 95 * value
val field96 = 96 * value
val field97 = 97 * value
val field98 = 98 * value
val field99 = 99 * value
    method get0 = field0 + 0
method get1 = field1 + 1
method get2 = field2 + 2
method get3 = field3 + 3
method get4 = field4 + 4
method get5 = field5 + 5
method get6 = field6 + 6
method get7 = field7 + 7
method get8 = field8 + 8
method get9 = field9 + 9
method get10 = field10 + 10
method get11 = field11 + 11
method get12 = field12 + 12
method get13 = field13 + 13
method get14 = field14 + 14
method get15 = field15 + 15
method get16 = field16 + 16
method get17 = field17 + 17
method get18 = field18 + 18
method get19 = field19 + 19 
   end
  
let v = new raw_class 3    
let () =    
  assert  (v#get14 = 56)